home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1992 / 11 / 05 / cluster-demo / modules.ampk / Work / TXT / SimpleEffectTest.mod < prev    next >
Unknown  |  1995-06-01  |  2.3 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert SoundTracker Module (music/soundTracker) ext Supported
65% dexvert Chip Tracker Module (music/chipTracker) ext Supported
64% dexvert Protracker Module (music/mod) ext Supported
63% dexvert Octalyser Module (music/octalyser) ext Supported
61% dexvert Star Tracker/StarTrekker Module (music/starTracker) ext Supported
1% dexvert PollyTracker Module (music/pollyTracker) ext Unsupported
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 43 4c 53 51 ff ff 00 | 00 04 62 00 00 08 b5 00 |.CLSQ...|..b.....|
|00000010| 24 00 5c 00 71 4c 53 00 | 2c 00 2c 00 00 00 00 00 |$.\.qLS.|,.,.....|
|00000020| 00 00 32 00 24 00 10 53 | 69 6d 70 6c 65 45 66 66 |..2.$..S|impleEff|
|00000030| 65 63 74 54 65 73 74 00 | 00 00 00 00 00 00 00 00 |ectTest.|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 15 09 00 00 00 15 00 |........|........|
|00000050| 00 0a a9 00 00 42 28 00 | 0a 53 74 64 50 72 6f 6a |.....B(.|.StdProj|
|00000060| 65 63 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ect.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 1b e3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 18 88 16 a1 01 | 8d 8f 84 95 8c 85 20 53 |........|...... S|
|000000a0| 69 6d 70 6c 65 45 66 66 | 65 63 74 54 65 73 74 3b |impleEff|ectTest;|
|000000b0| 00 00 01 86 92 8f 8d 20 | 53 6f 75 6e 64 20 89 8d |....... |Sound ..|
|000000c0| 90 8f 92 94 20 4c 6f 61 | 64 49 6e 73 74 72 75 6d |.... Loa|dInstrum|
|000000d0| 65 6e 74 2c 4b 69 6c 6c | 49 6e 73 74 72 75 6d 65 |ent,Kill|Instrume|
|000000e0| 6e 74 2c 53 69 6d 70 6c | 65 45 66 66 65 63 74 2c |nt,Simpl|eEffect,|
|000000f0| 50 6c 61 79 53 69 6d 70 | 6c 65 45 66 66 65 63 74 |PlaySimp|leEffect|
|00000100| 2c 00 13 4b 69 6c 6c 53 | 69 6d 70 6c 65 45 66 66 |,..KillS|impleEff|
|00000110| 65 63 74 2c 49 6e 73 74 | 72 75 6d 65 6e 74 2c 4e |ect,Inst|rument,N|
|00000120| 6f 74 65 76 61 6c 2c 49 | 6e 73 74 72 75 6d 65 6e |oteval,I|nstrumen|
|00000130| 74 73 2c 00 13 49 6e 69 | 74 53 6f 75 6e 64 53 79 |ts,..Ini|tSoundSy|
|00000140| 73 74 65 6d 2c 50 61 74 | 74 65 72 6e 73 2c 50 61 |stem,Pat|terns,Pa|
|00000150| 74 74 65 72 6e 2c 4e 6f | 74 65 76 61 6c 2c 45 66 |ttern,No|teval,Ef|
|00000160| 66 65 63 74 73 3b 00 01 | 86 92 8f 8d 20 49 6e 4f |fects;..|.... InO|
|00000170| 75 74 20 89 8d 90 8f 92 | 94 20 57 72 69 74 65 4c |ut .....|. WriteL|
|00000180| 6e 2c 57 72 69 74 65 53 | 74 72 69 6e 67 2c 57 72 |n,WriteS|tring,Wr|
|00000190| 69 74 65 49 6e 74 2c 52 | 65 61 64 3b 00 00 01 7c |iteInt,R|ead;...||
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 00 |********|*******.|
|000001f0| 01 7c 44 69 65 73 20 69 | 73 74 20 65 69 6e 20 42 |.|Dies i|st ein B|
|00000200| 65 69 73 70 69 65 6c 2c | 20 77 69 65 20 6d 61 6e |eispiel,| wie man|
|00000210| 20 65 69 6e 65 6e 20 62 | 7a 77 2e 20 6d 65 68 72 | einen b|zw. mehr|
|00000220| 65 72 65 20 65 69 6e 66 | 61 63 68 65 20 28 53 69 |ere einf|ache (Si|
|00000230| 6d 70 6c 65 2d 29 20 45 | 66 66 65 6b 74 65 00 01 |mple-) E|ffekte..|
|00000240| 7c 61 75 73 6c f6 73 74 | 2e 20 4d 61 6e 20 62 65 ||ausl.st|. Man be|
|00000250| 61 63 68 74 65 3a 20 44 | 69 65 20 76 65 72 77 65 |achte: D|ie verwe|
|00000260| 6e 64 65 74 65 6e 20 41 | 75 73 67 61 62 65 6b 61 |ndeten A|usgabeka|
|00000270| 6e e4 6c 65 20 6b f6 6e | 6e 65 6e 20 64 79 6e 61 |n.le k.n|nen dyna|
|00000280| 6d 69 73 63 68 20 7a 75 | 67 65 77 69 65 73 65 6e |misch zu|gewiesen|
|00000290| 00 01 7c 6f 64 65 72 20 | 76 6f 6d 20 42 65 6e 75 |..|oder |vom Benu|
|000002a0| 74 7a 65 72 20 66 65 73 | 74 67 65 6c 65 67 74 20 |tzer fes|tgelegt |
|000002b0| 77 65 72 64 65 6e 2e 1f | 1a 53 2e 20 48 65 72 72 |werden..|.S. Herr|
|000002c0| 2c 20 32 38 2e 30 39 2e | 39 32 00 01 7c 2a 2a 2a |, 28.09.|92..|***|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 00 00 01 83 |********|****....|
|00000320| 8f 8e 93 94 00 03 45 66 | 66 65 63 74 31 20 3d 20 |......Ef|fect1 = |
|00000330| 53 69 6d 70 6c 65 45 66 | 66 65 63 74 3a 28 43 68 |SimpleEf|fect:(Ch|
|00000340| 3d 2d 31 2c 56 61 6c 3d | 63 33 2c 49 6e 73 3d 30 |=-1,Val=|c3,Ins=0|
|00000350| 2c 56 6f 6c 3d 36 34 2c | 55 73 65 3d 46 41 4c 53 |,Vol=64,|Use=FALS|
|00000360| 45 29 3b 00 00 03 50 73 | 65 75 64 6f 50 61 74 74 |E);...Ps|eudoPatt|
|00000370| 65 72 6e 20 3d 20 50 61 | 74 74 65 72 6e 3a 28 28 |ern = Pa|ttern:((|
|00000380| 50 45 2c 20 30 2c 20 30 | 2c 20 4e 45 2c 20 30 29 |PE, 0, 0|, NE, 0)|
|00000390| 29 3b 00 03 45 6d 70 74 | 79 50 61 74 74 65 72 6e |);..Empt|yPattern|
|000003a0| 73 20 3d 20 50 61 74 74 | 65 72 6e 73 3a 28 50 73 |s = Patt|erns:(Ps|
|000003b0| 65 75 64 6f 50 61 74 74 | 65 72 6e 27 50 54 52 29 |eudoPatt|ern'PTR)|
|000003c0| 3b 00 00 01 96 81 92 00 | 03 63 68 20 3a 20 43 48 |;.......|.ch : CH|
|000003d0| 41 52 3b 00 00 03 4d 79 | 45 66 66 65 63 74 20 3a |AR;...My|Effect :|
|000003e0| 20 53 69 6d 70 6c 65 45 | 66 66 65 63 74 3b 00 03 | SimpleE|ffect;..|
|000003f0| 4d 79 45 66 66 65 63 74 | 73 20 3a 20 81 92 92 81 |MyEffect|s : ....|
|00000400| 99 20 5b 30 2e 2e 35 5d | 20 8f 86 20 53 69 6d 70 |. [0..5]| .. Simp|
|00000410| 6c 65 45 66 66 65 63 74 | 3b 00 03 4d 79 49 6e 73 |leEffect|;..MyIns|
|00000420| 74 72 75 6d 65 6e 74 73 | 20 3a 3d 20 49 6e 73 74 |truments| := Inst|
|00000430| 72 75 6d 65 6e 74 73 3a | 28 28 4e 49 4c 2c 20 30 |ruments:|((NIL, 0|
|00000440| 2c 20 30 2c 20 32 2c 20 | 36 34 29 29 3b 00 03 4d |, 0, 2, |64));..M|
|00000450| 79 50 61 74 74 65 72 6e | 73 20 3a 3d 20 4e 49 4c |yPattern|s := NIL|
|00000460| 3b 00 00 03 69 20 3a 20 | 43 41 52 44 49 4e 41 4c |;...i : |CARDINAL|
|00000470| 3b 00 00 01 82 85 87 89 | 8e 00 03 57 72 69 74 65 |;.......|...Write|
|00000480| 53 74 72 69 6e 67 28 22 | 49 63 68 20 76 65 72 73 |String("|Ich vers|
|00000490| 75 63 68 65 2c 20 53 61 | 6d 70 6c 65 20 7a 75 20 |uche, Sa|mple zu |
|000004a0| 6c 61 64 65 6e 2e 22 29 | 3b 57 72 69 74 65 4c 6e |laden.")|;WriteLn|
|000004b0| 3b 00 00 03 4d 79 45 66 | 66 65 63 74 20 3a 3d 20 |;...MyEf|fect := |
|000004c0| 45 66 66 65 63 74 31 3b | 00 03 86 8f 92 20 69 3a |Effect1;|..... i:|
|000004d0| 3d 30 20 94 8f 20 35 20 | 84 8f 00 05 4d 79 45 66 |=0 .. 5 |....MyEf|
|000004e0| 66 65 63 74 73 5b 69 5d | 3a 3d 45 66 66 65 63 74 |fects[i]|:=Effect|
|000004f0| 31 3b 00 03 85 8e 84 3b | 00 04 89 86 20 4c 6f 61 |1;.....;|.... Loa|
|00000500| 64 49 6e 73 74 72 75 6d | 65 6e 74 28 4d 79 49 6e |dInstrum|ent(MyIn|
|00000510| 73 74 72 75 6d 65 6e 74 | 73 5b 30 5d 2c 22 43 6c |strument|s[0],"Cl|
|00000520| 75 73 74 65 72 3a 53 61 | 6d 70 6c 65 73 2f 61 68 |uster:Sa|mples/ah|
|00000530| 79 65 61 68 22 29 20 94 | 88 85 8e 00 0a 57 72 69 |yeah") .|.....Wri|
|00000540| 74 65 53 74 72 69 6e 67 | 28 22 4b 6f 6e 6e 74 65 |teString|("Konnte|
|00000550| 20 53 61 6d 70 6c 65 20 | 6c 61 64 65 6e 21 22 29 | Sample |laden!")|
|00000560| 3b 57 72 69 74 65 4c 6e | 3b 00 00 0a 49 6e 69 74 |;WriteLn|;...Init|
|00000570| 53 6f 75 6e 64 53 79 73 | 74 65 6d 28 4d 79 49 6e |SoundSys|tem(MyIn|
|00000580| 73 74 72 75 6d 65 6e 74 | 73 2c 45 6d 70 74 79 50 |strument|s,EmptyP|
|00000590| 61 74 74 65 72 6e 73 29 | 3b 00 00 0b 52 65 61 64 |atterns)|;...Read|
|000005a0| 28 63 68 29 3b 00 0b 97 | 88 89 8c 85 20 63 68 20 |(ch);...|.... ch |
|000005b0| 23 20 22 78 22 20 84 8f | 00 0d 89 86 20 8b 85 99 |# "x" ..|.... ...|
|000005c0| 20 63 68 00 0f 8f 86 20 | 22 70 22 20 94 88 85 8e | ch.... |"p" ....|
|000005d0| 00 11 89 86 20 50 6c 61 | 79 53 69 6d 70 6c 65 45 |.... Pla|ySimpleE|
|000005e0| 66 66 65 63 74 28 4d 79 | 45 66 66 65 63 74 29 20 |ffect(My|Effect) |
|000005f0| 94 88 85 8e 00 13 57 72 | 69 74 65 53 74 72 69 6e |......Wr|iteStrin|
|00000600| 67 28 22 4b 6f 6e 6e 74 | 65 20 45 66 66 65 6b 74 |g("Konnt|e Effekt|
|00000610| 20 73 70 69 65 6c 65 6e | 2e 20 43 68 3a 20 22 29 | spielen|. Ch: ")|
|00000620| 3b 00 13 57 72 69 74 65 | 49 6e 74 28 4d 79 45 66 |;..Write|Int(MyEf|
|00000630| 66 65 63 74 2e 43 68 2c | 30 29 3b 57 72 69 74 65 |fect.Ch,|0);Write|
|00000640| 4c 6e 3b 00 11 85 8c 93 | 85 00 13 57 72 69 74 65 |Ln;.....|...Write|
|00000650| 53 74 72 69 6e 67 28 22 | 4b 65 69 6e 20 4b 61 6e |String("|Kein Kan|
|00000660| 61 6c 20 66 72 65 69 20 | 6f 64 65 72 20 45 66 66 |al frei |oder Eff|
|00000670| 65 63 74 20 69 6e 20 75 | 73 65 21 22 29 3b 57 72 |ect in u|se!");Wr|
|00000680| 69 74 65 4c 6e 3b 00 11 | 85 8e 84 3b 00 0f 85 8e |iteLn;..|...;....|
|00000690| 84 3b 00 0f 8f 86 20 22 | 6d 22 20 94 88 85 8e 00 |.;.... "|m" .....|
|000006a0| 11 86 8f 92 20 69 3a 3d | 30 20 94 8f 20 35 20 84 |.... i:=|0 .. 5 .|
|000006b0| 8f 00 13 89 86 20 50 6c | 61 79 53 69 6d 70 6c 65 |..... Pl|aySimple|
|000006c0| 45 66 66 65 63 74 28 4d | 79 45 66 66 65 63 74 73 |Effect(M|yEffects|
|000006d0| 5b 69 5d 29 20 94 88 85 | 8e 00 15 57 72 69 74 65 |[i]) ...|...Write|
|000006e0| 53 74 72 69 6e 67 28 22 | 4b 6f 6e 6e 74 65 20 45 |String("|Konnte E|
|000006f0| 66 66 65 6b 74 20 22 29 | 3b 57 72 69 74 65 49 6e |ffekt ")|;WriteIn|
|00000700| 74 28 69 2c 30 29 3b 00 | 15 57 72 69 74 65 53 74 |t(i,0);.|.WriteSt|
|00000710| 72 69 6e 67 28 22 73 70 | 69 65 6c 65 6e 2e 20 43 |ring("sp|ielen. C|
|00000720| 68 3a 20 22 29 3b 00 15 | 57 72 69 74 65 49 6e 74 |h: ");..|WriteInt|
|00000730| 28 4d 79 45 66 66 65 63 | 74 73 5b 69 5d 2e 43 68 |(MyEffec|ts[i].Ch|
|00000740| 2c 30 29 3b 57 72 69 74 | 65 4c 6e 3b 00 13 85 8c |,0);Writ|eLn;....|
|00000750| 93 85 00 15 57 72 69 74 | 65 53 74 72 69 6e 67 28 |....Writ|eString(|
|00000760| 22 55 70 73 3f 20 46 65 | 68 6c 65 72 20 6d 69 74 |"Ups? Fe|hler mit|
|00000770| 20 45 66 66 65 6b 74 20 | 4e 72 2e 20 22 29 3b 57 | Effekt |Nr. ");W|
|00000780| 72 69 74 65 49 6e 74 28 | 69 2c 30 29 3b 00 15 57 |riteInt(|i,0);..W|
|00000790| 72 69 74 65 4c 6e 3b 00 | 13 85 8e 84 3b 00 11 85 |riteLn;.|....;...|
|000007a0| 8e 84 3b 00 0f 85 8e 84 | 3b 00 00 0f 8f 86 20 22 |..;.....|;..... "|
|000007b0| 72 22 20 94 88 85 8e 00 | 11 86 8f 92 20 69 3a 3d |r" .....|.... i:=|
|000007c0| 30 20 94 8f 20 35 20 84 | 8f 00 13 4b 69 6c 6c 53 |0 .. 5 .|...KillS|
|000007d0| 69 6d 70 6c 65 45 66 66 | 65 63 74 28 4d 79 45 66 |impleEff|ect(MyEf|
|000007e0| 66 65 63 74 73 5b 69 5d | 29 3b 00 11 85 8e 84 3b |fects[i]|);.....;|
|000007f0| 00 11 57 72 69 74 65 53 | 74 72 69 6e 67 28 22 4d |..WriteS|tring("M|
|00000800| 75 6c 74 69 70 6c 65 20 | 45 66 66 65 6b 74 65 20 |ultiple |Effekte |
|00000810| 67 65 73 74 6f 70 70 74 | 21 22 29 3b 57 72 69 74 |gestoppt|!");Writ|
|00000820| 65 4c 6e 3b 00 0f 85 8e | 84 3b 00 00 0f 8f 86 20 |eLn;....|.;..... |
|00000830| 22 73 22 20 94 88 85 8e | 00 11 4b 69 6c 6c 53 69 |"s" ....|..KillSi|
|00000840| 6d 70 6c 65 45 66 66 65 | 63 74 28 4d 79 45 66 66 |mpleEffe|ct(MyEff|
|00000850| 65 63 74 29 3b 20 57 72 | 69 74 65 53 74 72 69 6e |ect); Wr|iteStrin|
|00000860| 67 28 22 45 66 66 65 63 | 74 20 67 65 73 74 6f 70 |g("Effec|t gestop|
|00000870| 70 74 21 22 29 3b 00 11 | 57 72 69 74 65 4c 6e 3b |pt!");..|WriteLn;|
|00000880| 00 0f 85 8e 84 3b 00 0d | 85 8e 84 3b 00 0d 52 65 |.....;..|...;..Re|
|00000890| 61 64 28 63 68 29 3b 00 | 0a 85 8e 84 3b 00 00 0a |ad(ch);.|....;...|
|000008a0| 4b 69 6c 6c 49 6e 73 74 | 72 75 6d 65 6e 74 28 4d |KillInst|rument(M|
|000008b0| 79 49 6e 73 74 72 75 6d | 65 6e 74 73 5b 30 5d 29 |yInstrum|ents[0])|
|000008c0| 3b 00 00 05 85 8c 93 85 | 20 57 72 69 74 65 53 74 |;.......| WriteSt|
|000008d0| 72 69 6e 67 28 22 53 61 | 6d 70 6c 65 20 6b 6f 6e |ring("Sa|mple kon|
|000008e0| 6e 74 65 20 6e 69 63 68 | 74 20 67 65 6c 61 64 65 |nte nich|t gelade|
|000008f0| 6e 20 77 65 72 64 65 6e | 21 22 29 3b 57 72 69 74 |n werden|!");Writ|
|00000900| 65 4c 6e 3b 00 00 03 85 | 8e 84 3b 00 00 03 57 72 |eLn;....|..;...Wr|
|00000910| 69 74 65 53 74 72 69 6e | 67 28 22 44 61 73 20 77 |iteStrin|g("Das w|
|00000920| 61 72 73 21 22 29 3b 57 | 72 69 74 65 4c 6e 3b 00 |ars!");W|riteLn;.|
|00000930| 00 01 85 8e 84 20 53 69 | 6d 70 6c 65 45 66 66 65 |..... Si|mpleEffe|
|00000940| 63 74 54 65 73 74 2e 00 | 00 00 00 ff |ctTest..|.... |
+--------+-------------------------+-------------------------+--------+--------+